home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS11.ADF / AmigaBasicProgs / MouseTrak.MSB (.txt) < prev    next >
AmigaBASIC Source Code  |  1986-08-05  |  640b  |  38 lines
  1. SCREEN 4,640,400,2,4
  2. WINDOW 5,,,0,4
  3. WINDOW OUTPUT 5
  4. PALETTE 2,0.5,0,0
  5. FOR x=0 TO 640 STEP 10  
  6. LINE (x,0)-(640,0.625*x),3
  7. LINE (640,0.625*x)-(640-x,400),3
  8. LINE (640-x,400)-(0,400-0.625*x),3
  9. LINE (0,400-0.625*x)-(x,0),3
  10. NEXT x
  11. CIRCLE (320,200),100,3,,,0.88
  12. PAINT STEP (0,0),2,3
  13. LOCATE 22,33
  14. COLOR 1,2
  15. PRINT "Mouse Position:"
  16. LOCATE 30,32
  17. PRINT "Press 'Q' to Quit."
  18. here:
  19.   zz=MOUSE(0)
  20.   LOCATE 26,37
  21.   PRINT "Y =";MOUSE(2)
  22.   LOCATE 24,37
  23.   PRINT "X =";MOUSE(1)
  24.   PALETTE 0,0,MOUSE(2)/398,0
  25.   PALETTE 3,MOUSE(1)/638,0,0 
  26.   zz$=UCASE$(INKEY$)
  27.   IF zz$="Q" THEN GOTO fin
  28.   GOTO here
  29.  
  30. fin:
  31.   WINDOW CLOSE 5
  32.   SCREEN CLOSE 4
  33.   END
  34.   
  35.  
  36.  
  37.   
  38.